currentpoint THY sub -# div /THSY exch def THX sub ! div /THSX exch def